10 INPUT"INPUT FILE";F$:INPUT"OUT FILE";O$
30 A=49152:B=PEEK(175)*256+PEEK(174):C=51200
40 GOSUB70:B=X:GOSUB11030
50 PRINT"ORIG:"B-A:PRINT"OUT:"C-51200:GOSUB105:END
70 OPEN2,8,2,F$+",P,R":GET#2,A$,A$:X=49152
80 GET#2,A$:POKEX,ASC(A$+CHR$(0)):X=X+1:IFST=0THEN80
90 CLOSE2:RETURN
105 OPEN2,8,2,"@0:"+O$+",P,W":PRINT#2,CHR$(0)CHR$(16);:X=51200
110 PRINT#2,CHR$(PEEK(X));:X=X+1:IFX<=CTHEN110
120 CLOSE2:RETURN
11000 A=PEEK(252)*256+PEEK(251)
11010 B=PEEK(254)*256+PEEK(253)
11020 C=PEEK(250)*256+PEEK(249)
11030 I=A:D=0:E=0
11040 FORI=ATOB-1
11050 N=PEEK(I)
11060 J=I+1
11070 Q=PEEK(J)
11080 IFQ=NTHENGOSUB11120
11090 IFQ<>NTHENGOSUB11220
11100 NEXT
11102 IFDTHENGOSUB11270
11104 IFETHENGOSUB11340
11106 POKEC,0:RETURN
11110 END
11120 IFETHENGOSUB11340:REM RETURN
11130 D=D+1:REM DUPLICATE
11140 IFD=127THENGOSUB11160
11150 RETURN
11160 POKEC,D+1
11170 C=C+1
11180 POKEC,N
11190 C=C+1
11200 D=0
11210 RETURN
11220 IFDTHENGOSUB11270:RETURN
11230 E=E+1
11240 IFE=1THENF=I
11250 IFE<127THENRETURN
11260 GOSUB11320:RETURN
11270 POKEC,D+1
11280 C=C+1
11290 POKEC,N
11300 C=C+1
11310 D=0:RETURN
11320 POKEC,EOR128:C=C+1
11330 FORJ=FTOI:POKEC,PEEK(J):C=C+1:NEXT:E=0:D=0:RETURN
11340 POKEC,EOR128:C=C+1
11350 FORJ=FTOI-1:POKEC,PEEK(J):C=C+1:NEXT:E=0:D=0:RETURN